<%@ LANGUAGE="VBSCRIPT" %> <% ID = Request.Querystring("ID") %> <% ACT = Request.Querystring("ACT") %> <%IF ACT = "REPLY" THEN TITLE = "站長回應" ELSE TITLE = "修改使用者留言內容" END IF %> 創意中心留言板管理 <% Set ConnGuestBook = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("GBook.mdb") ConnGuestBook.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdEditInfo = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT 訪客留言板.* FROM 訪客留言板 WHERE (編號 = " & ID & ")" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnGuestBook CmdEditInfo.Open cmdTemp, , 0, 1 %> <% MESSAGE = CmdEditInfo("留言內容") %> <% If ACT <> "REPLY" THEN %> <% MESSAGE = Replace(MESSAGE,"
",vbCrLf) %> <% ELSE %> <% MESSAGE = Replace(MESSAGE,vbCrLf,"
") %> <% END IF %> <% RMESSAGE = CmdEditInfo("回應") %> <% IF LEN(TRIM(RMESSAGE))<> 0 THEN %> <% RMESSAGE = Replace(RMESSAGE,"
",vbCrLf) %> <% END IF %> <% IF ACT = "REPLY" THEN %>
<% ELSE %> <% END IF %>

Marge Story Guest Book

<%=TITLE%>

<% IF ACT ="REPLY" THEN %>
如要刪除站長回應,請將其回應內容刪除即可...
<% ELSE %> <% END IF %>
姓　　名 <%=CmdEditInfo("姓名")%>
電子郵件 <%=CmdEditInfo("電子郵件")%>
網頁位址 <%=CmdEditInfo("網頁位址")%>
留言內容 <%= MESSAGE %>
回應內容
姓　　名 ">
電子郵件 ">
網頁位址 ">
留言內容
[返回留言板]